﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<%
	dim rs,sql,listid,name,i,rss,sqls,j,page
    		Page = Request("page")      '当前页数
    		If Page = "" Then Page = 1
   		If Not IsNumeric(Page) Then Page = 1
    		Page = CLng(Page)
    		If Page < 1 Then Page = 1
select case v
case "0"
we0="<br/>"
hr="<br/>"
%>
<card title="本站管理员"><p align="<%=qingtian.px%>">
<%
case "1"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
we1="</div>"
%>
<title>本站管理员</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%

End Select

		if sid="Null" then
		%><%=we%><%=zi%>欢迎你<%=zi0%><a href="/login.asp?sid=<%=sidd%>&amp;url=/bbs/banguan.asp?listid=<%=listid%>">注册/登陆</a><%=we0%><%
		else
		qingtian.info

		end if

%>
<%=qingtian.qingsav("531")%>
<%=dao%><b>=全站管理=</b><%=we0%><%=we%>
   <%
	Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "SELECT [id],[name],[shengri]  FROM [qingtian_user] where [bbs]=true order by [id] desc" 
	Rs.Open Sql,conn,1,1
	if not (rs.bof and rs.eof)  then
		For i=1 to rs.RecordCount
			If Rs.Eof Then
				exit For
			End If
%>
昵称:<a href="/user/spacev.asp?nid=<%=rs("id")%>&amp;sid=<%=sidd%>&amp;urls=<%=qingtian.wapurl%>"><%=qingtian.utf8(rs("name"))%></a>[<%=qingtian.onlina(rs("id"))%>]<br/>职务:站长<br/>
注册时间:<%=rs("shengri")%><br/>
<%
		Rs.MoveNext
		Next
else
%>该版暂无管理员<br/><%
	end if
	Rs.close
	Sql = "SELECT * FROM [qingtian_bbs] where [del]=0 and [view]=0 order by [id] asc"
	Rs.Open Sql,conn,1,1
	if not (rs.bof and rs.eof)  then
			Rs.PageSize = 8	'一页N条记录
				IF Not IsEmpty(Page) Then
					IF Not IsNumeric(Page) Then		'判断Page是否为数字
						Page=1
					Else
						Page=Cint(Page)		'转换成短整形Integer
					End IF
					IF Page > Rs.PageCount Then
						Rs.AbsolutePage = Rs.PageCount	'设置当前显示页等于最后一页
					ElseIF Page <= 0 Then
						Rs.AbsolutePage = 1		'设置当前页等于第一页
					Else
						Rs.AbsolutePage = Page	'如果大于零,显示当前页等于接收的页数
					End IF
				Else
					Rs.AbsolutePage = 1
				End IF
				Page = Rs.AbsolutePage


		For i=1 to  Rs.PageSize
			If Rs.Eof Then
				exit For
			End If
%>
<%=hr%><%=we1%><%=dao%>=<a href="board.asp?listid=<%=rs("id")%>&amp;sid=<%=sidd%>"><%=qingtian.utf8(rs("name"))%></a>=<%=we0%><%=we%>
<%

	Set Rss = Server.CreateObject("Adodb.Recordset")
	Sqls = "select  [nid],[class] from [qingtian_bbs_bz] where [del]=0 and [listid]="&rs("id")&" order by [id] desc"
	Rss.Open Sqls,conn,1,1
	if not (rss.bof and rss.eof)  then
		For j=1 to rss.RecordCount
			If Rss.Eof Then
				exit For
			End If
		%>昵称:<a href="/user/spacev.asp?nid=<%=rss("nid")%>&amp;sid=<%=sidd%>&amp;urls=<%=qingtian.wapurl%>"><%=qingtian.name(rss("nid"))%></a>[<%=qingtian.onlina(rss("nid"))%>]<br/>职务:
<%if rss("class")=true then%>
			[论坛副版主]<br/>
<%else%>
			[论坛版主]<br/>
<%
end if
		Rss.MoveNext
		Next 
else
%>该版暂无版主<br/><%
	end if
	Rss.close
	set rss=nothing
		Rs.MoveNext
		Next 
    		'分页
    		If Page < rs.PageCount Then
    		    Response.Write("<a href='banguan.asp?page=" & Page + 1 & "&amp;sid=" & sidd & "'>下一页</a>")
    		End If
       
    		If Page > 1 And Page < rs.PageCount Then
    		    Response.Write("|")
    		End If
        
    		If Page > 1 Then
    		    Response.Write("<a href='banguan.asp?page=" & Page - 1 & "&amp;id=" & id & "&amp;url=" & url & "&amp;sid=" & sidd & "'>上一页</a><br/>")
    		Elseif rs.PageCount >1 then
    		    Response.Write("<br/>")
    		End If
	end if
	Rs.close
	set rs=nothing

%>
<%=qingtian.qingsav("532")%>
<%=we1%><%
End Function
%>
